
userlist
 close:cn=0
 if not info(2) input @2 \"Send to printer? " i$:if i$="Y" then cn=5
 input @3 \"Letters to search for [Return for All] :"i$
 print sc$:open #1,"b:users":x=0:b5=0
 if left$(i$,1)="#" x=val(mid$(i$,2))-1:i$=""
 if (x+1>nu) then x=0
 setint(1)
 print #cn,'


 _###__________Name____________________From___________________Last On_________
/     |                      |                        |                       \'
usrlst2
 x=x+1
 if (x>nu) goto usrlst4
 if key(1) goto usrlst4
 if (key(0)=32) or (key(0)=160) goto usrlst4
 position #1,512,x
 input #1,c$,d$,e$
 if c$="" goto usrlst2
 if not instr(i$,c$) goto usrlst2
 b5=b5+1
 position #1,512,x,150:input #1,g1$,g2$,g3$\g4$,g5$,g6$\g7$,g8$,g9$
 print #cn,"| "right$("000"+Str$(x),3)" | "left$(c$+chr$(32,20),20)" | ";
 print #cn,left$(d$+", "+e$+chr$(32,22),22)" | "g8$"  "g9$" |"
 goto usrlst2
usrlst4
 setint(""):close
 print #cn,"\_____|______________________|________________________|_______________________/"\
 return
